home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / oriel.arc / HYPER.ORL < prev    next >
Text File  |  1991-07-31  |  4KB  |  127 lines
  1. {---------------------------------------------------------------}
  2.  
  3. {            HYPER.ORL                }
  4.  
  5. {---------------------------------------------------------------}
  6.  
  7.  
  8. {Set Environment}
  9.     SetWindow(MAXIMIZE)
  10.     UseBackground(TRANSPARENT,255,255,255)
  11.     UseBrush(Solid,192,192,192)
  12.     UseCoordinates(METRIC)
  13.  
  14. DRAW_BOAT:
  15.     DrawBackground
  16.     DrawBitmap(2,0,"BOAT1.BMP")
  17.  
  18.     DrawRoundRectangle(130,18,160,26,3,3)
  19.     UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
  20.     DrawText(136,19,"A")
  21.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  22.     DrawText(139,19,"bout...")
  23.     
  24.     DrawRoundRectangle(5,102,25,110,3,3)
  25.     UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
  26.     DrawText(7,103,"E")
  27.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  28.     DrawText(10,103,"xit")
  29.  
  30.     DrawRoundRectangle(5,111,65,119,3,3)
  31.     UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
  32.     DrawText(7,112,"M")
  33.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  34.     DrawText(10,112,"echanical Systems")
  35.  
  36.     DrawRoundRectangle(5,120,82,128,3,3)
  37.     UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
  38.     DrawText(7,121,"D")
  39.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  40.     DrawText(10,121,"eck and Cockpit Framing")
  41.  
  42.     DrawRoundRectangle(5,129,86,137,3,3)
  43.     UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
  44.     DrawText(7,130,"H")
  45.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  46.     DrawText(10,130,"ull Framing and Planking")
  47.     UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  48.     DrawText(2,138,"⌐1987 by Stephen L. Davis, courtesy of WoodenBoat Magazine")
  49.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  50.  
  51.     SetMouse(130,18,160,26,ABOUT,Temp,Temp,
  52.         5,102,25,110,END_IT,Temp,Temp,
  53.         5,111,65,119,DRAW_MECHANICALS,Temp,Temp,
  54.         5,120,82,128,DRAW_COCKPIT,Temp,Temp,
  55.         5,129,86,137,DRAW_FRAME,Temp,Temp)
  56.  
  57.  
  58.     SetKeyboard("a",ABOUT,"A",ABOUT,
  59.         "e",END_IT,"E",END_IT,
  60.         "m",DRAW_MECHANICALS,"M",DRAW_MECHANICALS,
  61.         "d",DRAW_COCKPIT,"D",DRAW_COCKPIT,
  62.         "h",DRAW_FRAME,"H",DRAW_FRAME)
  63.  
  64.  
  65. WAIT_FOR_INPUT:
  66.     WaitInput()
  67.  
  68.  
  69. ABOUT:
  70.     MessageBox(OK,1,INFORMATION,"IRENE
  71. Designed by John L. Hacker
  72. Length: 28 feet
  73. Beam: 6 feet 8 inches
  74. Draft: 2 feet
  75. Speed: 22 mph","About...",Button_mashed)
  76.     Goto WAIT_FOR_INPUT
  77.  
  78.  
  79. DRAW_MECHANICALS:
  80.     DrawBackground
  81.     DrawBitmap(5,0,"MECH1.BMP")
  82.     DrawRoundRectangle(158,120,178,130,3,3)
  83.     UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
  84.     DrawText(162,122,"B")
  85.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  86.     DrawText(165,122,"ack")
  87.     SetMouse(158,120,178,130,DRAW_BOAT,Temp,Temp)
  88.     SetKeyboard("b",DRAW_BOAT,"B",DRAW_BOAT)
  89.     UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  90.     DrawText(110,138,"⌐1987 Stephen L. Davis, courtesy WoodenBoat Magazine")
  91.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  92.     Goto WAIT_FOR_INPUT
  93.  
  94.  
  95. DRAW_COCKPIT:
  96.     DrawBackground
  97.     DrawBitmap(5,0,"COCKPIT1.BMP")
  98.     DrawRoundRectangle(158,120,178,130,3,3)
  99.     UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
  100.     DrawText(162,122,"B")
  101.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  102.     DrawText(165,122,"ack")
  103.     SetMouse(158,120,178,130,DRAW_BOAT,Temp,Temp)
  104.     SetKeyboard("b",DRAW_BOAT,"B",DRAW_BOAT)
  105.     UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  106.     DrawText(115,137,"⌐1987 Stephen L. Davis, courtesy WoodenBoat Magazine")
  107.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  108.     Goto WAIT_FOR_INPUT
  109.  
  110.  
  111. DRAW_FRAME:
  112.     DrawBackground
  113.     DrawBitmap(5,0,"FRAME1.BMP")
  114.     DrawRoundRectangle(28,120,48,130,3,3)
  115.     UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
  116.     DrawText(32,122,"B")
  117.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  118.     DrawText(35,122,"ack")
  119.     SetMouse(28,120,48,130,DRAW_BOAT,Temp,Temp)
  120.     SetKeyboard("b",DRAW_BOAT,"B",DRAW_BOAT)
  121.     UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  122.     DrawText(2,138,"⌐1987 Stephen L. Davis, courtesy WoodenBoat Magazine")
  123.     UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  124.     Goto WAIT_FOR_INPUT
  125.  
  126. END_IT:
  127.     End